home *** CD-ROM | disk | FTP | other *** search
/ PC Gamer (Italian) 27 / PC Gamer IT CD 27.iso / MEDIA / STORE.DXR / Internal_42_Dragable Box.ls < prev    next >
Encoding:
Text File  |  1997-12-01  |  793 b   |  37 lines
  1. on mouseEnter me
  2.   cursor(260)
  3.   set the text of field "rollover text" to "Drag this box to the shopping cart to get  more info on the software."
  4.   puppetSprite(38, 1)
  5.   set the moveableSprite of sprite 38 to 1
  6. end
  7.  
  8. on mouseLeave me
  9.   set the text of field "rollover text" to EMPTY
  10.   cursor(-1)
  11. end
  12.  
  13. on mouseDown me
  14.   cursor(290)
  15. end
  16.  
  17. on mouseUp me
  18.   global gselectedBoxes
  19.   cursor(-1)
  20.   if sprite 38 intersects 39 then
  21.     setAt(gselectedBoxes, 1, 1)
  22.     set the visible of sprite 38 to 0
  23.     set the locH of sprite 38 to 296
  24.     set the locH of sprite 38 to 210
  25.     resetBoxes()
  26.     resetDrag()
  27.     go("info")
  28.   else
  29.     set the locH of sprite 38 to 296
  30.     set the locH of sprite 38 to 210
  31.     set the visible of sprite 38 to 0
  32.     resetBoxes()
  33.     resetDrag()
  34.   end if
  35.   updateStage()
  36. end
  37.